Свойство ReferencesEvents

Возвращает объект ReferencesEvents. Только для чтения.

Значения
Аргумент, передаваемый в свойство ReferencesEvents, может иметь следующие значения:

Аргумент		Описание
проектVB		Если аргумент проектVB имеет значение Nothing, возвращенный объект будет передавать 
		события в семейства References всех объектов VBProject в семействе VBProjects. Если аргумент 
		проектVB указывает на допустимый объект VBProject, то возвращенный объект будет 
		передавать события только в семейство References этого проекта.

Дополнительные сведения
Свойство ReferencesEvents принимает аргумент и возвращает объект-источник события. Объект ReferencesEvents является источником событий, которые генерируются при добавлении или удалении ссылок.

Пример
В данном примере приводится программа, использующая свойство ReferencesEvents. Это свойство применяется в программе обработки событий для добавления или удаления ссылок.

Private WithEvents X As ReferencesEvents

Sub Test()
    Set X = Application.VBE.Events.ReferencesEvents
End Sub

Private Sub X_ItemAdded(ByVal Reference As VBIDE.Reference)
    ' Место для программы добавления элемента.
End Sub

Private Sub X_ItemRemoved(ByVal Reference As VBIDE.Reference)
    ' Место для программы удаления элемента.
End Sub
Hosted by uCoz